home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 6
/
Publication_06_19xx_High-Tech_de_Side_B.d64
/
timetable .ta
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
144 lines
5 dims(5,62),c$(69),c(69),na(69),x(69),y(69),d(69,4),ri(69),h(69)
120 c$(1)="[194]oston ":c(1)=2:x(1)=251:y(1)=171
122 c$(2)="[200]artford ":c(2)=1:x(2)=245:y(2)=178
123 c$(3)="[206][197][215] [217][207][210][203] ":c(3)=2:x(3)=238:y(3)=184
124 c$(4)="[206]ewark ":c(4)=1:x(4)=237:y(4)=181
125 c$(5)="[193]lbany ":c(5)=1:x(5)=238:y(5)=170
126 c$(6)="[205]ontreal ":c(6)=1:x(6)=233:y(6)=152
127 c$(7)="[208]hiladelphia":c(7)=1:x(7)=234:y(7)=189
128 c$(8)="[208]ortsmouth ":c(8)=1:x(8)=234:y(8)=209
129 c$(9)="[194]altimore ":c(9)=2:x(9)=229:y(9)=194
130 c$(10)="[210]ichmond ":c(10)=1:x(10)=228:y(10)=204
131 c$(11)="[215]ashington ":c(11)=1:x(11)=228:y(11)=197
132 c$(12)="[207]ttawa ":c(12)=1:x(12)=225:y(12)=159
133 c$(13)="[210]aleigh ":c(13)=1:x(13)=225:y(13)=216
134 c$(14)="[210]ochester ":c(14)=2:x(14)=221:y(14)=172
135 c$(15)="[199]reensboro ":c(15)=1:x(15)=220:y(15)=215
136 c$(16)="[210]oanoke ":c(16)=3:x(16)=217:y(16)=209
137 c$(17)="[194]uffalo ":c(17)=2:x(17)=216:y(17)=173
138 c$(18)="[195]harlotte ":c(18)=1:x(18)=214:y(18)=222
139 c$(19)="[212]oronto ":c(19)=2:x(19)=211:y(19)=168
140 c$(20)="[200]amilton ":c(20)=1:x(20)=211:y(20)=172
141 c$(21)="[208]ittsburgh ":c(21)=1:x(21)=212:y(21)=189
142 c$(22)="[197]rie ":c(22)=2:x(22)=210:y(22)=181
143 c$(23)="[195]harleston ":c(23)=1:x(23)=206:y(23)=204
144 c$(24)="[195]leveland ":c(24)=2:x(24)=203:y(24)=185
145 c$(25)="[204]ondon ":c(25)=1:x(25)=203:y(25)=175
146 c$(26)="[203]noxville ":c(26)=3:x(26)=195:y(26)=218
147 c$(27)="[212]oledo ":c(27)=1:x(27)=193:y(27)=184
148 c$(28)="[196]etroid ":c(28)=2:x(28)=198:y(28)=183
149 c$(29)="[198]lint ":c(29)=1:x(29)=193:y(29)=179
150 c$(30)="[195]incinatti ":c(30)=1:x(30)=192:y(30)=200
151 c$(31)="[196]ayton ":c(31)=1:x(31)=192:y(31)=197
152 c$(32)="[204]ouisville ":c(32)=1:x(32)=186:y(32)=208
153 c$(33)="[198]ort [215]ayne ":c(33)=1:x(33)=185:y(33)=190
154 c$(34)="[201]ndianapolis":c(34)=1:x(34)=185:y(34)=199
155 c$(35)="[199]rand [210]apids":c(35)=1:x(35)=184:y(35)=179
156 c$(36)="[206]ashville ":c(36)=3:x(36)=181:y(36)=219
157 c$(37)="[197]vansville ":c(37)=1:x(37)=179:y(37)=208
158 c$(38)="[195]hicago ":c(38)=2:x(38)=175:y(38)=183
159 c$(39)="[205]ilwaukee ":c(39)=2:x(39)=174:y(39)=178
160 c$(40)="[210]ockford ":c(40)=1:x(40)=169:y(40)=182
161 c$(41)="[205]emphis ":c(41)=1:x(41)=166:y(41)=225
162 c$(42)="[208]eoria ":c(42)=1:x(42)=166:y(42)=192
163 c$(43)="[211]t.[204]ouis ":c(43)=1:x(43)=162:y(43)=206
164 c$(44)="[212]hunder [194]ay ":c(44)=2:x(44)=165:y(44)=145
165 c$(45)="[211]t.[208]aul ":c(45)=1:x(45)=151:y(45)=164
166 c$(46)="[205]inneapolis ":c(46)=1:x(46)=148:y(46)=165
167 c$(47)="[196]es [205]oines ":c(47)=1:x(47)=147:y(47)=185
168 c$(48)="[203]ansas [195]ity ":c(48)=1:x(48)=140:y(48)=202
169 c$(49)="[212]opeka ":c(49)=1:x(49)=136:y(49)=203
170 c$(50)="[207]maha ":c(50)=1:x(50)=135:y(50)=188
171 c$(51)="[212]ulsa ":c(51)=1:x(51)=134:y(51)=218
172 c$(52)="[215]innipeg ":c(52)=1:x(52)=133:y(52)=134
173 c$(53)="[204]incoln ":c(53)=1:x(53)=132:y(53)=191
174 c$(54)="[215]ichita ":c(54)=1:x(54)=128:y(54)=210
175 c$(55)="[207]klahoma [195]. ":c(55)=1:x(55)=127:y(55)=223
176 c$(56)="[210]egina ":c(56)=1:x(56)=106:y(56)=125
177 c$(57)="[193]marillo ":c(57)=3:x(57)=105:y(57)=221
178 c$(58)="[211]askatoon ":c(58)=1:x(58)=100:y(58)=116
179 c$(59)="[196]enver ":c(59)=3:x(59)=093:y(59)=192
180 c$(60)="[208]ueblo ":c(60)=3:x(60)=093:y(60)=200
181 c$(61)="[195]olorado ":c(61)=3:x(61)=092:y(61)=196
182 c$(62)="[197]dmonton ":c(62)=1:x(62)=077:y(62)=104
183 c$(63)="[195]algary ":c(63)=3:x(63)=070:y(63)=118
184 c$(64)="[211].[204]ake [195]ity ":c(64)=2:x(64)=063:y(64)=182
185 c$(65)="[211]pokane ":c(65)=3:x(65)=050:y(65)=135
186 c$(66)="[194]oise ":c(66)=3:x(66)=049:y(66)=158
187 c$(67)="[204]as [214]egas ":c(67)=3:x(67)=039:y(67)=209
188 c$(68)="[211]eattle ":c(68)=2:x(68)=031:y(68)=127
189 c$(69)="[212]acoma ":c(69)=2:x(69)=029:y(69)=131
200 fort=1to69:forn=1to4:readd(t,n):next:next
201 data2,5,3,6
202 data1,3,5,4
203 data1,2,4,7
204 data2,3,5,7
205 data1,2,4,6
206 data1,5,12,14
207 data4,3,9,21
208 data10,11,13,16
209 data7,21,11,14
210 data8,11,16,23
211 data9,10,8,21
212 data6,14,19,17
213 data8,18,15,16
214 data12,6,9,17
215 data13,16,23,18
216 data10,8,13,15
217 data14,12,22,20
218 data15,13,23,26
219 data12,20,25,22
220 data19,17,25,22
221 data7,9,11,24
222 data20,19,17,24
223 data10,15,18,30
224 data22,21,28,27
225 data19,20,28,29
226 data18,36,30,32
227 data24,28,29,31
228 data25,24,27,29
229 data25,28,27,35
230 data26,23,31,32
231 data27,33,34,30
232 data30,37,36,26
233 data35,31,34,38
234 data33,31,37,42
235 data29,33,38,39
236 data26,32,37,41
237 data36,32,34,43
238 data35,40,42,33
239 data35,45,40,42
240 data39,45,47,33
241 data36,43,48,51
242 data43,34,38,39
243 data42,37,41,48
244 data47,45,46,52
245 data39,40,46,44
246 data45,44,47,50
247 data44,40,50,46
248 data41,43,49,53
249 data53,48,51,54
250 data46,47,53,59
251 data41,49,54,55
252 data44,58,56,66
253 data50,48,49,54
254 data49,51,53,59
255 data51,61,60,57
256 data52,58,62,63
257 data55,59,60,67
258 data52,56,63,62
259 data50,54,57,61
260 data55,57,67,61
261 data60,64,59,55
262 data58,56,63,68
263 data62,58,56,65
264 data61,67,66,65
265 data63,64,66,68
266 data52,64,68,65
267 data57,60,64,69
268 data65,66,69,62
269 data68,67,66,65
1000 open1,4,7:print#1,chr$(14);" [198]ahrplan":print#1,""chr$(15)
1010 fort=1to69:forn=1to4:c2$=c2$+c$(d(t,n))+" ":next:
1020 print#1," "c$(t)" "c2$:c2$="":next